prolog './g112i.ijs'
NB. *:/ B ---------------------------------------------------------------

1 1 1 0 -: *:/ 0 0 1 1 ,: 0 1 0 1

nand=: 4 : 'x*:y'

(*:/"1 -: nand/"1) x=:?3 5 17$2
(*:/"2 -: nand/"2) x
(*:/"3 -: nand/"3) x

(*:/"1 -: nand/"1) x=:?3 5 32$2
(*:/"2 -: nand/"2) x
(*:/"3 -: nand/"3) x

(*:/"1 -: nand/"1) x=:?3 8 32$2
(*:/"2 -: nand/"2) x
(*:/"3 -: nand/"3) x

f=: 3 : '(*:/ -: nand/) y ?@$ 2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x




epilog''

